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Ret ent Chee en eae eee ees 
ie 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPH NT CORPORATION, MAYHARD. MASSACHUSETTS. 
te AL $ RESERVED. 

ie 


THIS 
:# ONLY 
I 


® 
® 
® 
® 
® 
SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED © 
IN ACCORDAN THE TERMS OF SUCH LICENSE AND WITH THE 
if INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
te TRANSFERRED. * 
‘® ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 

* 

® 

® 
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'® DIGITAL ASSUMES NO RESPONSIBILIT 
‘; SOFTWARE ON EQUIPMENT WHICH IS Ni 
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Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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; FACILITY: Network Control Program (NCP) 
i ABSTRACT: 
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States and data for the parsing of NCP command verbs 

i ENVIRONMENT: VAX/VMS Operating System 

i AUTHOR: Darrell Duffy . CREATION DATE: 10-September-79 
i MODIFIED BY: 


v03-008 PRDOO99 Pau DeStefano 01-May-1984 
set she, ~ Tp NO_ YAREA. Q flag if comme is TELL 
reel ce no area address is epee’ ied. 
ACT SAVER (in module NCPVRBACT) will key off this 
fl beg and pint fact that the parameter block address 
wil PBKSG_VRB_XID and set the area to 1. 
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v03-007 PRDO064 Paul R. DeStefano 5-F eb-1984 
Change ACTSGL_NODADR_Q “references to ACTSGL ADR Q. 

v03-006 PRDO062 Paul R. DeStefano 05-Feb-1984 
Allow OBJECT parameter to accept both name and number. 

v03-005 PRDOOSS Paul R beStetene 05-Feb-1984 
Enable X25-Access parsing 
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v03-004 RPGO004 Bob Grosso 24-Mar-1983 
Add CONNECT CONSOL 
v03-003 RPGO003 A. Grosso 24-Sep-1982 


Parse for node 
Set/Def Module cont lqureter. console, loader, looper. 


v03-002 RPG0002 Bob Gro 14-Sep-1982 
Fix prompting so X-S is. andi guo 
Clear pgPsol_ guelors s so that ALL “checking works. 


Clear a Wy noparms $0 “that parameter can be turned off. 


v03-001 RPGO001 Bob Gro 27-Jul-1982 
Add SET X25-TRACE and Set © K29-SERVER 

voo03 TMHOO003 Tim Halvorsen 20-Jan-1982 
Fix prompt for object name to reflect an increase 
in its maximum size (now 12 characters). 

v002 mH0002 Tim Halvorsen 10-Jul-1981 
had MODULE ee A SET/DEF INE. 

v001 TMHOO01 m Halvorsen 18-Jun-1981 


Add CIRCUITS and po bow parameters. 
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ACTSGL “ACC “MASK, 
ACTSGL_XIDACC_Q 
ACTSGL_NO_ XAREA,O 


String descriptors for access parameters 
ACT$GQ_ACCUSR_DSC : 


ACT$GQ"ACCACC_DSC : VECTOR 
ACTSGQ"ACCPSWIDSC : 


soc188e (3:41: 


. | User id 
' Account 


! Password 


ACT$GQ_NODEID_DSC : 
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! Node id descriptor 
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with Node specification 
no exec area specified. 
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Def -Sep- NCP.SRC NeP TAVRB.B32; (3) 
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EXTERNAL REFERENCES: 
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—OOew 


EXTERNAL arthinorc 


NOUS 


uw 


COMMAND, 

ACTSSAVPRR, Save @ parameter 

ACTSTMP Save a temporary string 

ACTSBUNR. S16 Blanks are now significant 

CTSBLNK-NSIG, Blanks are not significant 
1 ACTSZAPTAPDSC, Clear temporary descriptors 
¢ TSPRMPT, Prompt for a parameter 
° Validate a number 


Validate a string length 

Set vector to next state table 
Enable prompting 

Disable prompt ing 

Control ed ng 

Clear a longword 

Return control to VMS 


Perform tell function 
Set executor node 
Clear executor node 
Print help text 


ACT L. 

ACTSVRB_ =SETEXEC, 

ACTSVRS,, CLEXEC, 
ACTSHELP; 


! External Data 


EXTERNAL 
cree _ADR_Q True for node address, object number 
ACTSGL NODAREA, Node area 
NePScL- ~QUALPRS: Set when a qualifier is parsed 
CPSGL_NOPARMS ; 


Set when an entity does not take parameters 


: Error status values 


EXTERNAL LITERAL 
NCPS_INVVAL, 
NCPS_ INVKEY 


Invalid value 
Invalid keyword 
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NCP$G_STTBL_CLPU, 
NCP$G_KYTBL~CLPU, 
CP$G-STTBL_CON, 
NCP$G-KYTBL_CON, 
CP$G-STTBL-D1S. 
CP$G-KYTBL-D1S. 
NCP$G-STTBL DUM, 
NCP$G_KYTBL DUM, 
CP$G-STTBL-LIN, 
NCPSG_KYTBL-LIN, 
CP$G-STTBL-CIR. 
NCP$G_KYTBL-CIR 
NCP$G_STTBL_MODC 
NCP$G_KYTBL-MODCN 
NCP$G_STTBL_MODC 
NCP$G_KYTBL -MODCNS 
NCP$G_STTBL_MODLOA, 
CP$GKYT 


NCP$G_KYTBL_M9S. 
NCP$G_STTBL_LOA, 
NCP$G_KYTBL_LOA, 
NCP$G-STTBL_LOG, 
NCPSG_KYTBL-L0G, 
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Clear and Purge commands 


Connect command 


Disconnect command 


! Dump command 


Line parameters 


Circuit parameters 


! Module 


Module 


! Module 
! Module 
! Module 
! Module 
! Module 
! Module 
! Module 
! Module 
! Module 
! Module 
! Load command 


Configurator parameters 
Console parameters 

Loader parameters 

Looper parameters 

X25-ACCESS parameters 
X25-PROTOCOL parameters 
X25-PROTOCOL DTE parameters 
X25-PROTOCOL GROUP parameters 
X25-SERVER parameters 
X25-TRACE parameters 
X25-TRACE TRACEPOINT parameters 
X29-SERVER parameters 


Logging parameters 


! Loop command 


Remote node parameters 


Object parameters 


Show and List commands 


Trigger command 


Zero command 
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Parameter blocks 
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-Sep-1 NCP.SRCINCPSTAVRB.B32; 


1 ZSBTTL ‘Parameter blocks’ 


cc ce ee mm ee ee ee ee ee ee ce ee ee ee ee ee ee ed ed ed ed ed 


: BIND DATA: 


. 


BUILD_PBK 
(VRB, 

ALL, LITB, 0, . 

KWN, LIT6, NMASC_ENT_KNO, VRB_ENT, 
) 

BUILD_PBK 

(ENT, 


KN 

LIN, TKN, , VRB-ENT 
> NADR,’, VRE_ENT, 

OBJ, TKN, , VRB_ENT, 


ON, LITB, NMASC_SNK_CON, VRB_ENT, 
TYPFIL., LITB. NMASC-SNK"FIL, VRB-ENT. 
PMON, LITB. NMASC-SNK-MON, VRB-ENT. 
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Woas000" Raat lee perRee=faRe Tbetki ts | ANUS SRBbNEBsPavke: 83529 
; 1: 
3 § ! Control blocks for ACTSZAPTMPDSC 
; 7 a 
3 5 : GLOBAL BIND 
; § ! POKES _LAPATEOSC . ! Zap descriptors for access control 
: 289 1 ACT$GQ_ACCUSR_DSC, 

90 . ACT$SGQ_ACCACC_DSC, 

91 $ 1 ACTSGQ_ACCPSW_DSC 

4 1 ) 

9 0288 1 
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yO4 Prompt Strings 12-8601 382 Ob eats NCP. SRCINCPSTAVRB.832; (7) 
; 295 é ! ZSBTITL ‘Prompt Strings’ : 
; 33 1 i Prompt Stri } 
; romp rings 3 
; 39 38 1! ° 3 
3 89 Be 1 3 
3 1 5 1 BIND 3 
; 4 P 38 1 PROMPT _STRINGS : 
$ 0 P 0297 1 (ENT, $ 
: 304 p 38 1 3 
; 305 P 0299 1 CIR, ‘Circuit ID string (16 characters): ', ; 
; ) P 89 1 LIN, ‘Line ev-ceu.t): ', : 
3 e 1 LOG, 7 Tyee of logging (CONSOLE, FILE, MONITOR): a 3 
3 08 P b¢ 1 KWN, "(CIRCUITS, LINES, LOGGING, NODES, OBJECTS): °, ‘ 
; 309 P 0305 1 NOD, ‘Node ID (node-name, address): ', : 
; 310 P 0304 1 OBJ, ‘Object name (1 § aracters): ° : 
$ 11 P 0305 1 !! MOD, ZSTRING('Module (X25-ACCESS, X2 =PROTOCOL X25=SERVER,', CRLF, ° 
: \¢ P 3308 1 !! . X25-TRACE, X29-SERVER): '), : 
. t 0307 1 MOD, XSTRING('Module (CONFIGURATOR gousoug LOADER,*, CRLF, : 
> 314 L 0308 1 ; LOOPER, X25-ACCESS, X25-PROTOCOL,',CRLF, : 
; 315 P 0309 1 ) X25-SERVER, X25-TRACE, X29-SERVER): '), : 
; 16 P0310 1 : 
3; 31 0311 +1 De : 
Py 18 \¢ 1 ° 
; 319 P0313 1 PROMPT_STRINGS : 
; 320 P0314 1 (VRB, : 
3 1 P0315 1 ; 
3 § 4 1 : XID, ‘Executor node ID (node-name, address): ', : 
; ¢ : O31 : TELL, ‘Executor node ID (node-name, address): ', : 
3 $ L B35¢ 1 SDF1, ZSTRING( : 
; 2 t 0321 1 *(CIRCUIT, EXECUTOR, KNOWN, LINE,',CRLF, ° 
; $39 P O3e¢ * "LOGGING, MODULE, NODE, OBJECT): '), : 
3 0 L bs 4 1 VRB, ZSTRING ( 
3 31 t 0325 1 "(SET, DEFINE, CONNECT, DISCONNECT, CLEAR PURGE ,* CRLF, 
; 32 P 0326 1 ' SHOW, LIST, DUMP, LOAD, TRIGGER, LOOP, ZERO): °), 
: Zo P 0327 1 
; 334 328 2 ) 
s 335 329 1 3 
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of the state table 
ZSBTTL 
SINIT STATE (NCPSG_STATE_TBL, NCPSG_KEY_TBL); 
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-Sep-1 
*Root of the state table’ 


Allow TELL or a VERB here or E0S 

ST_CMD 

TPAS_LAMBDA, , ACTSCLRLONG, , , NCPSGL_OPTION) 
TPAS_LAMBDA, » ACTSCLRLONG, , , NCPSGL_FNC_CODE) 


TPAS_LAMBDA, , ACTSCLRLONG, , , NCPSGL_QUALPRS) 


( 
( 

) 

( 

( 

) 

( 

( 

) 

( 

(fPAS_LAMBDA, , ACTSCLRLONG, , , NCPSGL_NOPARMS) 
( 

( ST_VRB_CLE), 

TPAS EXIT, ACTSVRB_EXIT), 
( 

( 

( 

( 

) 


ST_VRB_VRB) 


For TELL require a node-id next 
COMMAND PROMPT 

(VRB, TELL, NCPS_INVVAL, 

( (SE_NODE_SPEC), , ACTSSAVPRM, , , PBK$G_VRB_XID) 
) 

And optional access information next 


Ente gre) 


(, 

( (SE_ACCESS) ), 

(TPAS_LAMBDA) 

( } Sunny state to provide action 
(TPAS_LAMBDA, ST_VRB_VRB, ACTSVRB_TELL 


iss-32 V4.0-74 
NCPSTAVRB.B32; 
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Decode and perform Help command 
Call the help action routine. 


SSTATE (ST 
(TP PRS ELARBDA, TPAS_EXIT, ACTSHELP) ! Call the action routine 


—> es es 
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¥062000 Decode verbs 1 ~$0071 388 OF ahi he INCE. SRE Neestaveeo3507 9 
: cos ? } ZSBTTL ‘Decode verbs’ 

: 41 401 1! 

; 411 1 | Verb decoding states 

; aig ii 

: 41 1 

: 414 P0405 1 COMMAND _PROMPT 

; 419 P 4 (VRB, VRB, NCP$_INVKEY, 

; “19 P0408 1 ("CLEAR' ST_VRB_CLPU), 

> 41 P0409 1 (*CONNECT', STVRB-CON), 

; 6 P 1 ("DEF INE’ ST“VRB-SDF, , NMASM_OPT_PER, NCPSGL_OPTION, ), 
RE P0411 1 ("DISCONNECT', STVRBDISS, 

: 6 P 3 1 (*DUMP’, ST-VRB_DUM) , 

5 « ¢ P0413 1 ('LIST', ST“VRB-SHL, . NMASM_OPT_PER, NCPSGL_OPTION, ), 
mt: P0414 1 ("LOAD', ST-VRB-LOAS, 

: 626 P0415 1 (*LOOP! © STVRB-LOO) , 

+ 625 P 16 1 (*PURGES, ST“VRB-CLPU, , NMASM_OPT_PER, NCPSGL_OPTION, ), 
> 426 P0417 1 CSET" ST-VRB_SDF), 

: 427 P0418 1 ("SHOW ST-VRB-SHL), 

+ 628 P0419 1 (" TRIGGER’, STVRB_TRI), 

: 429 P 0420 1 ("ZERO', ST"VRB~ZER) 

; 430 p O4e1 (TPAS_SYMBOL , TPAS-EXIT, ACTSINV_COMMAND) 
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ZSBTTL ‘Set / Define Processing’ 


! 
Set / Define Processing 


' 
: Executor node 


SSTATE E 


ST ENT XE 
TPAS_LAMBDA, , ACTSSAVPRM, NMASC_ENT_NOD 
NCPSGC_OPTION, PBKSG_ENT_EXE) 


( 
( 
); 

SSTATE ( 

(TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, , , NEXT_STATE (NOD) ) 

Circuits 


COMMAND _PROMPT 
(ENT, CIR, NCPS_INVVAL, 


( (SE_CIRC_ID), , ACTSSAVPRM, NMASC_ENT_CIR 
NCPSGL_OPTION, PBKS$G_ENT_CIR) 


P 051 SSTATE (ST_KWN_CIR 
P : (TPAS_LANBDA, TPAS_EXIT, ACTSNXT_STATE, , , NEXT_STATE (CIR) ) 
1 o 
1 ! 
1 : Lines 
1 ! 
1 
' COMMAND 


PROMPT 

(ENT, LIN, NCPS_INVVAL, 

( (SE_LINE_ID), , ACTSSAVPRM, NMASC_ENT_LIN 

NCPSGL_OPTION, PBK$G_ENT_LIN) 


SSTATE (ST_KWN_LIN 
CTPAS_LANBDA, TPAS_EXIT, ACTSNXT_STATE, , , NEXT_STATE (LIN) ) 
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: Modules 


COMMAND _PROMPT 
(ENT, MOD, NCPS_INVKEY, 


(* CONFIGURATOR", ST_ENT_CNF), 
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¥042000 Set / Define Processing 1 =3007 1382 ett ENCP.SRE NCPSTAVRB.B32; 9° 455 
; 57 P 1 SSTATE (ST_ENT_CNF ! MODULE CONFIGURATOR 
: 7 P 3 1 (IPRS URMBDA TPAS EXIT, ACTSNXT_STATE, 
: Of P NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MODCNF)) 
: $74 1 F 
: 575 P 1 SSTATE (ST gNT CNS ! MODULE CONSOLE 
: 57 P 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT STATE, 
; % P 0565 NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MODCNS)) 
; 1 ; 
3 P 1 SSTATE (ST gNT LOA ! MODULE LOADER 
; 581 Pp 2 1 (TPRS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, 
; ; P 20 NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MODLOA)) 
: 72 1 : 
; 585 P i 1 SSTATE (ST gNT LOO ! MODULE LOOPER 
; P 578 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, 
; P0575 1 NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MODLOO)) 
a PGES 2 Bae 
; Pp 0578 1 $STATE (ST ENT AC ! MODULE X25-ACCESS 
; 591 P0579 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT STATE, 
3 3 P $e @ NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MAC)) 
: 594 582 1 , 
: 595 P 05 j 1 SSTATE (ST_ENT_MPR ! MODULE X25-PROTOCOL 
; 96 P0584 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, 
; 3 P 3 5 , NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MPR)) 
; 38 P 42 1 SSTATE (ST_ENT_MPRDTE ! MODULE X25-PROTOCOL DTE 
; 600 P0588 1 (TPAS_LAMBDA, fPAS_EXIT, ACTSNXT STATE, 
; 601 P 0389 NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MPRDTE)) 
; £08 Pp 0591 1 S$STATE (81 ENT MPRGRP ! MODULE X25-PROTOCOL GROUP 
: 604 Pp b9¢ 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, 
; $be Pp d598 ; NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MPRGRP)) 
: 60 0595 1 ‘ 
; 608 Pp 0596 1 SSTATE (ST_ENT_MSE ! MODULE X25-SERVER 
; 609 P0597 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, 
; 610 P 098 i NMASE_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MSE)) 
: 61 M400 1 . 
; gig P 0601 1 SSTATE (ST_ENT_MTR ! MODULE X25-TRACE 
> 614 P0602 1 (TPRS_LAMBDA, TPAS_EXIT, ACTSNXT STATE, 
; 615 P0603 | ; NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MTR)) 
; gi$ Pp 060 1 $STaTE (81 eNT MTRIPT ! MODULE X25-TRACE TRACEPOINT 
; 618 P 0606 1 (TPAS_LAMBDA, fPAS_EXIT, ACTSNXT STATE, 
; 61 P 06 NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(MTRTPT)) 
: 1 1 F 
; Pp 1 SSTATE (ST_ENT_M9S ! MODULE X29-SERVER 
; p 1 (IPAS LAMBDA TPAS_EXIT, ACTSNXT_ STATE, 
; 4 Pp : NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(M9S)) 
; 626 1 


Settee orb, Pray, Stgues end dete ibseoct9g 3:48:33 ENCE Ene INeBstAvRe 832; feats) 


: Known Entities 


3 1 

3 1 

3 1 

: } 

3 e 1 COMMAND _ PROMPT 

3 : 4 ! (ENT, KON, NCPS_INVKEY, 

; 6 P 06 ; 1 ("CIRCUITS', ST_KWN_CIR, ACTSSAYERA, nase ENT IR 

3; 6 P 06 1 nist ew vee Gr VRB_ KWN), 
: 6 Pp 5 1 (*LINES', ST_KWN_LIN, actseavecus ama WT gia 

: 6 P Oc $ 1 NCPSGL nist ew RSG VRB_ KWN), 
; 640 P 06 1 (*LOGGING', ST_KWN_LOG, ACTSeAVPRHT tna "4 

3; 641 P 06 1 P$G “OPT ION; “PR G VRB_ KWN), 
3 obg P 06 1 ("NODES', ST_KWN_NOD, ACTSSAVPRA, WAASC 

; 66 P 06¢ 1 TION, PREG VRB KWN), 
> 644 P 0631 1 ("OBJECTS', ST_KWN_OBJ, ACTSSAVPRM, NMASC_SENT 

3 645 P 06 : 1 NCPSGL_OPTION; PBKSG_ vk. KWN), 
3 ong P 06 1 

; 646 : 1 ) 

3 ose 635 1 

; rots 1 i Loggi 

; ° 0 n 

3; 651 é 1! eens 

=) § : 1 

3; 6 P 0640 1 COMMAND_PROMPT 

: 636 4 641 | (ENT, LOG, NCPS_INVKEY, 

3 628 . : $ ! ( (SE_LOG_TYP). , , NMASC_ENT_LOG, NCPSGL_OPTION) 

3 o38 645 1 ) 

; 65 : $ 1 

; 660 Pp B64 1 SSTATE (ST_KWN_LOG 

3 os} Pp bo68 ! (TPAS_LANBDA, TPAS_EXIT, ACTSNXT_STATE, , , NEXT_STATE (LOG) ) 
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1 


: 665 i! 

3 1! Nodes 

3 1! 

3 1 

; P 1 COMMAND _PROMPT 

3 . } (ENT, NOD, NCPS_INVVAL, 

: 67 P 1 ( (SE_NODE_ID), , ACTSSAVPRM, NMASC_ENT_NOD 

; t 4 i NCPSGL_OPTION, PBKSG_ENT_NOD) 
; fe ) 

: 67 P 1 SSTATE (ST_KWN 

; 678 P (TPRS_ URNoDA, TPAS_EXIT, ACTSNXT_STATE, , , NEXT_STATE (NOD) ) 
; 1 

; 681 1! 

8 1! Objects 

; 1: 

; 1 

3; 685 P 1 COMMAND _PROMPT 

; 4 ! (ENT, OBJ, NCPS_INVVAL, 

; P 1 ( (SE_OBJECT_ID), . ACTSSAVPRM, NMASC_SENT_0B 

i 6 p i NCPSGL SOPTION, * PBKS$G_ENT_OBJ) 
: 691 1 ) 

: 69 1 

: 69 P 1 SSTATE (ST_KWN_OBJ 

; 694 P CTPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, . , NEXT_STATE (OBJ) ) 
: 696 1 7 
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ZSBTTL ‘Clear/Purge Dispatching’ 


; Dispatching for Clear and Purge 
: : 
3 5 : CLEAR EXECUTOR NODE 
: 708 SSTATE (ST_VRB_CLE, 
; 709 ( SE VRE CLEX) ), ' Is this clear executor node? 
3 19 -— “LAMBDA, ST_VRB_CLPU) 
a : 
ig SSTATE (¢ ! Perform the clear executor node 
4 CFPAS_ EOS, TPAS_EXIT, ACTSVRB_CLEXEC) 
1 € 
13 SSTATE (SE_VRB_CLEX, ' Succeed if executor node 
18 CERECUTOR") ! Otherwise fail 
05 . 
SSTATE (, 
NODE’, TPAS_EXIT) 


Clear and Purge dispatch to another state table 


SSTATE VRB_CLPU, 


ST 
TPAS_LAMBDA, , . NMASM_OPT_CLE, NCPSGL_OPTION) 


Wd 


SSTATE 
TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_ STATE, NMASC_FNC_C 
ACPSGL_ _FNC_COBE, REXT STATE (CLPU) ) 
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739 7 133 ZSBTTL ‘Connect Verb' : 
ry ; 
74 i Connect Verb ; 
74 i ; 
oe: p $STATE (ST_VRB_CON ; 
0 p i} TPKE LAMBDA, , , NMASM_OPT_CLE, NCPSGL_OPTION) : 
748 p ii : ; 
749 Pp i i$STATE : 
750 P (TPAS LANGA, TPAS_EXIT, ACTSNXT STATE, NMASC_FNC SYS, : 
f 1 P ACPSGL_FNC_COBE, REXT_STATE (CON) ) : 
i F : 
754 
755 ZSBTTL ‘Disconnect Verb’ 
96 
75 ' 
758 ! Disconnect Verb 
759 i 


' Dump Verb 


SSNS 
DPAPPIATISTIIIN EE BB PEPE EEE 
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0 
0 
76) PO SSTATE (ST_VRB_DIS 
f6 P (TPR LAMBDA, . , NMASM_OPT_CLE, NCPSGL_OPTION) 
764 . 
765 P SSTATE ( 
766 P (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, NMASC_FNC_C 
P i ACPSGL_FNC_COBE, REXt “STATE (DIS) ) 
769 0 
770 ZSBTTL ‘Dump Verb‘ 
771 
77 ' 
0 


SSTATE (ST_VRB_DUM, 
(TPAS_LAMBDA, TPAS_EXIT, ACTSNXT STATE, NMASC_F 
ACPSGL_ FNC ACOBES “neXt. STATE (DUM) ) 
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); 
ZSBTTL ‘Load Verb‘ 


Sooes 


; Load Verb 
P SSTATE (ST_VRB_LOA 
P 077 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT STATE, NMASC_FNC_LOA, 
Aas P ve , ACPSGL_ FNC _COBE, NEXT STATE (LOA) ) 


ZSBTTL ‘Loop Verb‘ 


; 767 
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, Loop Verb 


; P 07 RB_LOO 
; P 07 

§ P 07 

3 2 786 


1 

1 SSTATE (ST_VRB 

(TPRS_LAMBDA, TPAS_EXIT, ACTSNXT : 
1 ) 


*STATE (LOO) ) 
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v04-000 Define Subexpressions 14-Sep-1984 12:48:3 CNCP.SRCINCPSTAVRB.B32;1 
: 839 08 1 1 &SBTTL ‘Define Subexpressions' 

Be Met 

; v4] ¢ ! Subexpression to decode a node specification 

> B44 6 Be 

3 5 P 1 SSTATE (SE_NODE_SPEC 

: 46 P 4 1 ( (SE_NOB SPCS, , ACTSSTR_LEN, , . LEN FILE_SPEC), 

i B47 P 08 ; (TPA “LAMBDA, TPAS_FAIL, ACTSBLNK-NSIGY 

; rts P . ! i SSTATE % 

; 24 P Os ¢ 1 (Fs), 

; 3 P 0834 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSBLNK_NSIG) 

; 85 0835 1 3 

; 54 +4 $ 1 

; 855 P 0837 1 S$STATE (, 

MH 56 P te 1 (*:", TPAS_EXIT, ACTSBLNK_NSIG), 

; 87 P 0839 (TPAS_LAMBDA, TPAS_FAIL, ACTSBLNK_NSIG) 


Page 453 
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yO42000 Define Subexpressions 1eaeee=h 88 Mbiakids | ARS Bb less#e Ma - 5243 9 65 


ns 


; 1 : 
; 1 : 
; ry } Decode the specification string : 
> 864 45 1_ ; 
; 865 P 0846 1 SSTATE (SE_NOD SPC ! Symbol for the node name ‘ 
3 08 P 0847 1 ((SE_NOB_AREA_Q), » ACTSCLRLONG, , , ACTSGL_XIDACC_Q), ! If an area is present then the '.' was rej ’ 
: 30f . rk : ! so check for it here ‘ 
; yt P 0850 1 ((SE_NOD ADRS), , ACTSCLRLONG, , , ACTSGL_XIDACC_Q), ! Flag node address without area. ‘ 
3 0 P . (TPAS_SYMBOL, , ACTSCLRLONG, . . ACTSGL_XTDACC_QD, ! To allow logical names : 
: e7) H § ! ); : 
: B75 P 0854 1 SSTATE (, : 
; 874 P TH 1 ("'"", , ACTSBLNK_SIG) ! Access control may follow : 
; 875 P 0836 1 (TPAS_LAMBDA, TPAS_EXiT) i Or not : 
UE A ieee : 
; 878 P O88 1 $STATE (, ! If access control, ‘ 
; 879 P 0860 1 ( (SE_SPC_STR), , , TRUE, ACTSGL_XIDACC_Q), ! Get the string or ‘ 
; 880 P 0861 1 ("'* “TpAS EXIT, , TRUE, ACTSGL_RIDACC_@), ! Allow null accctl : 
| Bl oe tee det : 
; 88 P 0864 1 SSTATE ( ! Blank after string or : 
; B84 P 0865 1 (TPAS_BLANK) , : 
3 5 P Pree 1 (**'*, TPAS_EXIT) ! End it ‘ 
: BB ones | * 
; 888 P 0869 1 SSTATE (, ; 
; 889 P 0870 1 ( (SE_SPC_STR) ) ! Password string : 
Bos Bh peek : 
; 83 > oars 1 SSTATE ( : 
: 89 P 0874 1 (TPAS_BLANK) , ! And blank or end : 
3; 894 P 0875 1 (**** |“ TPAS_EXIT) : 
ale Bh fet : 
; 897 P 0878 1 SSTATE (, : 
; $98 P 0879 1 ( (SE_SPC_STR) ) ! Account string > 
eo eit : 
; 901 P O8Be 1 SSTATE (, ; 
: 902 P 08835 1 c"'"", TPAS_EXIT) ! And end it here or fail : 
; 903 0884 1 ); ; 


D 10 
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Qnm 


5 > ; 
3 1! ° 
$ i Decode a string acceptable for access control in a node spec : 
i $08 } ; 
: 91 Pp | SSTATE (SE sP¢ STR, ' Accept 2 string for access control ; 
: | 2 3 : (SE_SPC_CHR) ) ' Start with a character ; 
: 914 9% 1 P 
3 M2 P 5 1 SSTATE (SE_SPC_STR1 ! And accept any after that ‘ 
: 318 P 1 ( CSF Skt CHR), SE gre STR1), ° 
; 91 P 1 (TPA DA,  TPAS_ERIT) ; 
; 218 38 1 ); : 
: 338 p 0900 1 SSTATE (SE_SPC_CHR CA trol char i t ; 
3 _CHR, ' A access control char is any exce : 
; 921 P O31 1 (Fee PAS_FAIL), ' Double quote and ’ r ° 
: 9 : P0902 1 (TPAS_BLANK, § TPAS~FAIL). i Space or tab : 
; 9 P 090 1 (TPAS_ » TPAS_EXIT) ° 
3; 924 0904 1 ); : 
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P 
P 091 
1 
1 
P 0914 
P 0915 
P 0916 
P 091 
91 
3 
P 09 
P 0921 
P 099¢ 
P 09 
P 0924 
925 
P 03 ; 
P 9999 
P a : 
P 9938 
03 i 
P 0935 
P 09 
P 09 
9 
P 0940 
P 0941 
§ 
P 0944 
P 0945 
; 
+ Be 
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SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


ifcdeo-198e 01:44:13 


Obtain access control in the more general case 


AX-11 Bliss-32 
STA 


NCP. SRCINCPSTAV 


(SE_ACCESS ! Dumm $6°Shpac to descriptors 
(TPAS_LAMBDA, , ACTSZAPTMPDSC, , . PBKSG.ZAPAC 5S 

(, ! Take any one first but there must be 
( ACCOUNT® , ST_ACCESS_ACC), ! at least one or fail 

("PASSWORD’, — STTACCESS~PSW). 

5 Ween’ ST_ACCESS_USR) 

(ST_ACCESS_1, ! Now there can be any remaining 

(* ACCOUNT’ ST_ACCESS_ACC), ! number but there need not be 
(USERS  STACCESS"USR), 

CBRE" LAneD, TPAS_EXIT) 

(ST spits ! State for an account string 

( (SE_ACCESS sate) ST_ACCESS 

(TPASILAMBDA > TPAS_FAIL, Atrsinv. COMMAND) 

(SE_ACCESS_ACC, ! Subexpression for an sccount string 
; (SE_ACC_ACC), TPAS_EXIT ,ACTSTMPSTR, » »ACT$GQ_ACCACC_DSC) 
($T_ACCESS_PSW ! State for a password string 

( (SE_ACCESS_PSw), ST_ACCESS_1) 

SYRIA LARSON. TPAS FAIL, AttSinv. COMMAND) 

(SE_ACCESS_PSwW, ! Subexpression for a A atts te string 
: (SE_ACC_PSw), TPAS_EXIT ,ACTSTMPSTR, - »ACT$GQ_ACCPSW_DSC) 

(ST spits ! State for a user id string 

( (SE_ACCE $$ sugR) ST_ACCESS_1 

(TPASILARED A; TPAS_FAIL, AttSinv. COMMAND) 

(SE_ACCESS_USR, ' Subexpression for a user ie string 
: (SE_ACC_OSR), TPAS_EXIT ,ACTSTMPSTR, - »ACT$GQ_ACCUSR_DSC) 


NCPSTAVRB 

: ie H 

: $F 

; 9 : 

; 97 ° SSTATE 
3 P 

! e SSTATE 
: 9 5 P 

; 9 P 

; 985 P 

3; F 

; ° SSTATE 
: 989 P 

; 990 Pp 

; 991 

3 936 

; 99 ! 

3: 994 ! 

; 995 

: 399 

; 998 ! 

; 999 i SSTATE 
: 1000 P 

3 1991 

: 1908 P SSTATE 
: 1004 p 

3 13? P 

; 1007 

; 1008 be SSTATE 
3; 1009 P 

: 1010 

3; 1011 


Subexpressions Petty 93:23:43 


See if the node address has an area in fron 
Format is area.adr, where area and adr are “aie tush. 


(SE _NOD_AREA_Q, 
(TPRS_DECIMAC) ° 


); 

(; 

Pa & ACTSNUM RNG, 
ANGE (COW_AREA, HIGH_AREA)), 

cy PAS “LAMBDA. TPAS_FAIC) 

( 

( 

); 


fPAS DECIMAL TPAS_EXIT, ACTSNUM_RNG 
RANGE (COW_NODE_ADR, Aion “NODE_ADR)) 


If area test failed, but there is a valid node address, 
then accept the node address and set a flag so that 

ACTSSAVPR will set the area to 1 if it! s a TELL or 
SET EXEC command. 


SE_NOD_ADRS, 
PAS _LAMBDA, - ACTSCLRLONG, , , ACTSGL_NO_XAREA_Q) 


ANGE (LOW_NODE_ADR, HIGH_NODE_ADR)) 


( 
(T 
); 
( 
(TPAS DECIIAL , ACTSNUM_RNG, 
); 
( 
( 
); 


TPAS_LAMBDA, TPAS_EXIT, , TRUE, ACTSGL_NO_XAREA_Q) 
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The last number parsed was indeed an area 
so check the range 
There was no area so clear storage 


Check the range of the node address 


Start with the flag clear. 


Check the range of the node address. 


! Set the flag to indicate no exex area was 


SA 


Voc-000" =‘ Fine Subexpressions iets ep-198¢ $3:4b:43 UNCP. SRE INEPSTAVKB B32: 4 Page «f5 


; 101 1! 

; | 13 ! ; Call subexpressions we need from the Library 

:1 1g 1 

; 101 1 SEM_NODE_ID ! Node id parsing 

3 3 18 33 1 SEM_ACCESS ! sensean + ess S ering parsing 

; 101 $ 1 SEM_QUOT_STR ' Quoted string 

: 1020 997 1 SEM_LINE_ID ' Line jp 

3; 1021 998 #1 SEM_CIRC_ID ! Cirey t 1D 

; 10 ; 999 1 SEM_LOG_TYP ' Logging type 

: ! ect name/number 
10 1000 1 SEM_OBJECT_ID ! Ob /numb 


Object Listing of Parse fable HEReocHOGE QU:tH:49 YAUGtLAeMancHz as: nr i 
} ZSBTTL ‘Object Listing of Parse Table’ 


1001 

1 

i 1 END ‘End of module 
1 0 ELUDOM 


L EQUIPMENT CORPORATION 
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